home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs08.d81 / ultra70.sda / ULTRA V7.0 (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  15KB  |  335 lines
  1. 1 MD=14384:SP=13389:GP=13451:OC=15628:CK=15631:CR=15864:WW=15985:RP=16018
  2. 2 SO=16658:EZ=14162:ER=14366:SD=13628:MN=13647:MP=13977:MF=13736:MQ=14090
  3. 3 MT=14057:MU=14065:MV=14119:GQ=13526:RT=14020:PF=16266:PG=16267
  4. 4 S=1:A=0:JY=1:REM SET SOUND, ASCII CONVERT, & MOUSE DEFAULTS  1=ON - 0=OFF
  5. 5 DN=08:REM SET DEVICE NUMBER 08 TO 11
  6. 6 POKE254,JY:JZ=56321:BD=53280:BK=BD+1:S2=54272:S3=S2+1:S6=S2+4:S7=S2+5
  7. 7 S8=S2+6:FQ=54287:VC=54295:RS=65511:CL=59903
  8. 8 POKE253,DN:POKEBD,.:POKEBK,.:POKE788,52:DIMA$(112):PRINTCHR$(142):SYSER
  9. 9 A$="":PRINT"[144][147]":S1$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  10. 10 PRINT A$"[213]"S1$"[192][192][192][192][201]"
  11. 11 PRINT A$"[221]    ULTRA SEQ-PRINT      [221]
  12. 12 [153] A$"(null)   ORIGINAL  PROGRAM     (null)
  13. 13 PRINT A$"[221] BY R.W. (BOB K7) KOBER  [221]
  14. 14 [153] A$"(null)   VERSION 7.0 UPDATE    (null)
  15. 15 PRINT A$"[221] BY JOE KOVALIK (JOEK22) [221]
  16. 16 [153]A$"MID$"S1$"TANTANTANTAN(null)"
  17. 17 [129]I[178]1[164]35:L$[178]L$[170]"TAB(":AS$[178]AS$[170]"*":[130]:S$[178]"                         "
  18. 18 RN$[178]"I   II  III IV  V   VI  VII VIIIIX  X   XI  XII XIIIXIV XV  "
  19. 19 [151]787,60:[151]2,7:[158]OC:[141]21:[158]CK:[151]787,30:[158]SD:[137]23
  20. 20 X[178]1:[142]
  21. 21 [129]K[178]1[164]3000:[130]:[142]
  22. 22 M[178][195](A$):[129]I[178]1[164]M[173]2:[153]"":[129]J[178]1[164]K:[153]"";:[130]:[153][166]20[171]I)[200](A$,I)[201](A$,I):[130]:[142]
  23. 23 [151]BD,0:[151]BK,0:[151]650,64:[158]CK
  24. 24 [151]53272,21:[153]"LOAD"[163]8)"STOP(null)"S1$"RIGHT$"
  25. 25 [153][163]8)"(null)      MAIN MENU      (null)":[153][163]8)"MID$"S1$"(null)"
  26. 26 [129]I[178]1[164]300:[130]:[151]2,5:[151]878,20:[158]OC
  27. 27 [151]252,0:[139]BOB[167][151]150,168:[158]GP:[137]46
  28. 28 [153][163]43)"USE      EMBEDDED <CR>     IGNORE"
  29. 29 [153][163]2)"DEF"L$
  30. 30 [153][163]3)"SYSSTEP  (null)WAITDEF"S$"FORSTEP  (null)LISTWAIT"
  31. 31 [153][163]3)"SYS F1 WAITDEF  SEND OUTPUT TO SCREEN  FOR F2 WAIT"
  32. 32 [153][163]3)"SYS(null)  WAITSTEPDEF"S$"FOR(null)  WAITSTEP"
  33. 33 [153][163]42)"CONT"L$
  34. 34 [153][163]3)"VERIFYSTEP  (null)WAIT"S$"CLRSTEP  (null)"
  35. 35 [153][163]3)"VERIFY F3 WAIT  CONT40 COLUMNS TO PRINTER  CLR F4 WAIT"
  36. 36 [153][163]3)"VERIFY(null)  WAITSTEP"S$"CLR(null)  WAITSTEP"
  37. 37 [153][163]42)"PRINT"L$
  38. 38 [153][163]3)"PRINT#STEP  (null)WAIT"S$"DEFSTEP  (null)"
  39. 39 [153][163]3)"PRINT# F5 WAIT PRINT 80 COLUMNS TO PRINTER  DEF F6 WAIT"
  40. 40 [153][163]3)"PRINT#(null)  WAITSTEP"S$"DEF(null)  WAITSTEP"
  41. 41 [153][163]42)"CLR"L$
  42. 42 [153][163]3)"CONTSTEP  (null)WAIT"S$"STEP  (null)"
  43. 43 [153][163]3)"CONT F7 WAITCLR DISK HOUSEKEEPING  FORQUIT  F8 WAIT"
  44. 44 [153][163]3)"CONT(null)  WAITSTEP"S$"(null)  WAITSTEP"
  45. 45 [139]BO[178]0[167]BOB[178]1:[151]150,168:[158]SP
  46. 46 [151]198,.:[160]15:[159]15,DN,15:[141]240:[146]JZ,16
  47. 47 MN$[178]"PRINT#       < F1=DIRECTORY : F5=MENU >ONON"
  48. 48 X[178]0:COL[178]0
  49. 49 [161]A$:[145][171](A$[178]"D")[137]273:[145][171](A$[179][177]"M")[137]50:JY[178]1[171]JY:[151]254,JY:[158]MN,81,120
  50. 50 [145][171](A$[178]"N")[137]322
  51. 51 [145][171](A$[178]"A")[141]118:[145][171](A$[178]"S")[141]239:[158]MP:[139]A$[179]"INPUT"[176]A$[177][199](140)[167]48
  52. 52 F$[178][201]([196]([198](A$)[171]132),1):[145][197](F$)[137]53,56,63,146,55,62,66,139
  53. 53 [158]MF:[139][194](252)[167]FF$[178]"$":[141]71:[145]X[137]24:[137]81
  54. 54 [141]87:[141]67:[145]X[137]24:[137]81
  55. 55 F$[178]"2":[137]53
  56. 56 F$[178]"3":[151]600,0
  57. 57 [158]MF:X[178]0:[141]88:[158]MN,122,155:[141]91:[139]COL[178]2[167]Z[178][171]1:[141]316
  58. 58 [139]X[178]1[167]24
  59. 59 [139][194](252)[167]FF$[178]"$":[141]71:[145]X[137]24:[137]61
  60. 60 [141]67:[139]X[178]1[167]24
  61. 61 [145]COL[137]80,208
  62. 62 F$[178]"4":[151]600,1:[137]57
  63. 63 F$[178]"5"
  64. 64 [139][194](252)[167]FF$[178]"$":[141]71:[145]X[137]24:[137]80
  65. 65 [158]MF:[141]89:[141]67:[145]X[137]24:[137]80
  66. 66 F$[178]"6":[137]64
  67. 67 [153]"":[151]214,I[171]2:[153]:[153]MN$
  68. 68 [151]207,0:[153]"SYS  ENTER SEQ FILENAME:";:[141]280:[139]FF$[178][199](135)[167]27
  69. 69 [139]FF$[179][177]"$"[175](F$[177]"2"[175]F$[179]"7")[167][141]253
  70. 70 [139]FF$[179][177]"$"[167][158]CK:X1[178]34:[142]
  71. 71 [141]313:[139]X[167][142]
  72. 72 X[178]0:[139]FF$[178]"$"[167][132]15,E,E$,T,I:[139]E[167][153]"LOAD":[141]135
  73. 73 [139]E[167]20
  74. 74 [158]CK:[153][199](142):[158]MD:[153]:[160]15:[159]15,DN,15
  75. 75 Y[178][194](598)[178]34:[139][168]Y[175](F$[177]"2"[175]F$[179]"7")[167][141]253
  76. 76 [158]CK:[139]Y[176](X[178]1)[167]20
  77. 77 X1[178]0:FF$[178]""
  78. 78 FF[178][194](580[170]X1):[139]FF[178]34[167][142]
  79. 79 FF$[178]FF$[170][199](FF):X1[178]X1[170]1:[137]78
  80. 80 [159]4,4,7:[141]127:[139]QQ[167]24
  81. 81 [151]252,0:[159]2,DN,2,FF$:[141]134:[145][171](E[179][177]0)[137]24:[141]101
  82. 82 [160]2:[160]4:[158]RS:[159]15,DN,15:X1[178]0:[141]98
  83. 83 [139][194](252)[178]2[167]24
  84. 84 [161]A$:[139]A$[178]"READ"[167]24
  85. 85 [151]214,23:[153]:[153]"        DEF (null)RESS F5 FOR THE (null)ENU WAIT        ON"
  86. 86 [158]MU:[161]A$:[145][171](A$[179][177][199](135))[137]86:[137]24
  87. 87 [129]I[178]6[164]8:[151]781,I:[158]CL:[130]:[142]
  88. 88 [129]I[178]11[164]13:[151]781,I:[158]CL:[130]:[142]
  89. 89 [129]I[178]16[164]18:[151]781,I:[158]CL:[130]:[142]
  90. 90 [129]I[178]21[164]23:[151]781,I:[158]CL:[130]:[151]214,21:[153]:[142]
  91. 91 [151]214,11:[153]:[153][163]6)"1WAIT OR CONT2WAIT COLUMNS?":[151]198,0:X[178]0
  92. 92 [139]([194](JZ)[175]1)[178]0[175][194](197)[178]64[167][158]MF:[137]20
  93. 93 [161]A$:[139]A$[178][199](160)[167][158]MQ:COL[178][194](780):[145][171](COL[178]0)[137]92:[137]97
  94. 94 [139]A$[178][199](135)[167][158]MF:[137]20
  95. 95 [139]A$[179]"1"[176]A$[177]"2"[167]92
  96. 96 COL[178][197](A$)
  97. 97 [158]MF:[142]
  98. 98 [145][171](S[178]0)[137]245:[129]L[178]S2[164]VC:[151]L,0:[130]:[151]VC[170]1,15:[151]S7,8:[151]S8,255
  99. 99 [151]S6,23:[129]Y[178]1[164]3:F2[178]8:[151]S3,2:[129]X[178]1[164]5:[151]FQ,F2:F2[178]F2[172]1.4:[130]:[130]:[129]W[178]1[164]8
  100. 100 [151]FQ,F2:F2[178]F2[172]1.07:[130]:[151]S8,15:[142]
  101. 101 RP$[178]"(null)(null)RIGHT$(null)(null)VAL(null)":[139]F$[178]"1"[176]F$[178]"2"[167]RP$[178]"(null)VALATNSTR$VAL(null) "
  102. 102 [158]CK:[153]"LOAD"[199](14):[153][163]2)"STOP"AS$
  103. 103 [153][163]2)"*    ASC"F$" (null)(null)(null)(null)ATNCLOSE(null)VAL(null)-ASCRIGHT$(null)VALCLOSE"RP$"    *"
  104. 104 [153][163]2)""AS$:[151]214,23:[153]
  105. 105 M1$[178]"LEFT$OLD SHIFT TO PAUSE - ":M2$[178]"(null)RESS F5 TO ABORTONON"
  106. 106 [139]F$[178]"1"[176]F$[178]"2"[167]M1$[178]"LEFT$OLD SHIFT TO SCROLL -":M2$[178]" LEFT$IT F5 TO ABORT ONON"
  107. 107 [153]M1$M2$:[129]I[178]1[164]300:[130]:[151]2,12:[151]787,20
  108. 108 [158]OC:[151]214,23:[153]:[153]"DEF"M1$"SYS"M2$""
  109. 109 [145][197](F$)[137]110,111,112,113,114,115
  110. 110 [158]RP,40,0,0,0,0:X1[178]0:[142]
  111. 111 [158]RP,39,1,0,0,0:X1[178]0:[142]
  112. 112 [141]116:[158]RP,40,0,1,M,0:X1[178]0:[142]
  113. 113 [141]116:[158]RP,39,1,1,M,0:X1[178]0:[142]
  114. 114 [141]116:[158]RP,80[171]R[171]M,0,1,M,F:XI[178]0:[142]
  115. 115 [141]116:[158]RP,79[171]R[171]M,1,1,M,0:XI[178]0:[142]
  116. 116 [139]F[167][142]
  117. 117 [129]I[178]1[164]5:[152]4:[130]:[142]
  118. 118 A[178]1[171]A:[151]820,A:[137]243
  119. 119 [145][171](S[178]0)[137]21:[129]L[178]S2[164]VC:[151]L,0:[130]:[151]VC[170]1,9:[151]S7,8:[151]S8,252
  120. 120 [151]S6,21:[151]FQ,40:[129]Z[178]1[164]T:[129]F1[178]255[164]0[169][171]6:[151]S3,F1:[130]F1:[129]F1[178]0[164]255[169]50
  121. 121 [151]S3,F1:[130]F1:[130]Z:[151]VC[170]1,15:[151]S6,20:[129]Z[178]1[164]2500:[130]
  122. 122 [151]S7,128:[151]S8,250:[142]
  123. 123 [145][171](S[178]0)[137]21:[129]L[178]S2[164]VC:[151]L,0:[130]:[151]VC[170]1,15:[151]S7,8:[151]S8,255
  124. 124 [151]S6,23:[129]Z[178]1[164]1:F1[178]10:[129]Y[178]1[164]6:F2[178]30:[151]S3,F1:[129]X[178]1[164]3:[151]FQ,F2
  125. 125 F2[178]F2[173]1.2:[130]X:F1[178]F1[172]1.5:[130]Y:[129]W[178]1[164]30:[151]S3,F1:[151]FQ,5:[129]V[178]1[164]5:[130]V
  126. 126 F1[178]F1[173]1.5:[130]W:[130]Z:[151]S8,15:[142]
  127. 127 [160]4:[139]ST[178]0[167][159]4,4,7:QQ[178]0:[142]
  128. 128 [153]"DEF      THE PRINTER IS NOT ON LINE"
  129. 129 [153]"     TURN IT ON AND PRESS ANY KEY"
  130. 130 [153]"        OPENPRESS F5 FOR THE MENU":[141]123:[151]198,0
  131. 131 [158]MU:[161]A$:[139]A$[178]""[167]131
  132. 132 [139]A$[178]"READ"[167]QQ[178]1:[142]
  133. 133 [159]4,4,7:[137]127
  134. 134 [132]15,E,E$:[139]E[178]0[167][142]
  135. 135 [153]"LOAD         DISK ERROR ENCOUNTERED":[153][163]20[171][195](E$)[173]2)E$
  136. 136 [141]123:[153]"OPEN          ANY KEY TO CONTINUE":[151]198,0
  137. 137 [161]A$:[158]MU:[139]A$[178]""[167]137
  138. 138 [160]2:[160]4:[142]
  139. 139 [158]MF
  140. 140 K[178]21:A$[178]" SYS     ARE YOU SURE?     ":[141]22:[151]198,0
  141. 141 [158]MT:[161]A$:[139]A$[178]""[167]141
  142. 142 [145][171](A$[178]"Y")[137]144
  143. 143 [153]"ONONON":[137]27
  144. 144 [151]214,21:[153]:[153][163]8)"DEF USE ULTRA AGAIN, SOON ":[151]198,0
  145. 145 [151]650,0:T[178]3:[141]119:[158]65126
  146. 146 [151]150,168:[158]GP:[151]2040,11:X[178]0:[141]241:[160]15:[159]15,DN,15
  147. 147 FF[178]0:[153]"LIST":[151]214,8:[153]:[153][163]6)"(null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$"
  148. 148 [153][163]6)"(null)"S$"(null)":[153][163]6)"(null) DISK HOUSE KEEPING MENU (null)"
  149. 149 [153][163]6)"(null) USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR (null)":[153][163]6)"(null) 1. SELECT DRIVE         (null)"
  150. 150 [153][163]6)"(null) 2. SCRATCH A FILE       (null)":[153][163]6)"(null) 3. RE-NAME A FILE       (null)"
  151. 151 [153][163]6)"(null) 4. FORMAT (NEW) A DISK  (null)":[153][163]6)"(null) 5. VIEW DIRECTORY       (null)"
  152. 152 [153][163]6)"(null) 6. RETURN TO MAIN MENU  (null)":[153][163]6)"(null)"S$"(null)"
  153. 153 [153][163]6)"MID$"S1$"TANTANTANTAN(null)":ID[178]0
  154. 154 [158]GQ:[146]JZ,1:[151]198,0:[158]MN,103,157
  155. 155 [139]([194](JZ)[175]1)[178]0[175][194](197)[178]64[167][158]MF:[137]27
  156. 156 [161]A$:[139]A$[178][199](160)[167][158]MV:K[178][194](780):[145][171](K[178]0)[137]155:[137]160
  157. 157 [139]A$[178][199](135)[167]A$[178]"6"
  158. 158 [139]A$[178]"D"[167]A$[178]"1"
  159. 159 K[178][197](A$):[139]K[179]1[176]K[177]6[167]155
  160. 160 [145]K[137]272,162,183,195,248,27
  161. 161 [151]512,32:[142]
  162. 162 [153]"LOADFOR":[151]BD,0:[151]BK,0:[158]MF:S2$[178]"               ":CO[178]2
  163. 163 [153][163]40)""S$S2$;
  164. 164 [153]"    THIS ROUTINE WILL SCRATCH A FILE    ";
  165. 165 [153]""S$S2$
  166. 166 [139]FF[178]34[167]171
  167. 167 [151]214,11:[153]:[153]MN$"ON"
  168. 168 [151]207,0:[153]"SYS  ENTER SEQ FILENAME: DEF";:[141]280
  169. 169 [139]FF$[178][199](135)[167]146
  170. 170 [139]FF$[178]"$"[167][141]71:[137]162
  171. 171 [141]88:B$[178]"LISTSCRATCH SEQ FILE DEF"[170][199](34)[170]FF$[170][199](34):FF[178]0
  172. 172 [153]:[153]""[163]21[171][195](B$)[173]2)B$
  173. 173 [153][163]90)"SYSARE YOU SURE?? (Y/N)":[151]198,0
  174. 174 [161]K$:[158]MU:[139]K$[178]""[167]174
  175. 175 [139]K$[178][199](135)[167]146
  176. 176 [139]K$[179][177]"Y"[175]K$[179][177][199](13)[175]K$[179][177][199](160)[167]FF$[178]"":[137]162
  177. 177 B$[178]" SCRATCHING  "[170]FF$[170]" ":[153][163]20[171][195](B$)[173]2)B$:[152]15,"S0:"FF$
  178. 178 [132]15,ER,ER$,T,SA:[139]K[178]3[176]K[178]4[167][142]
  179. 179 G9$[178][200](ER$,4)[170][201](ER$,10):E9$[178]" "[170]FF$[170]" WAIT "[170]G9$
  180. 180 [139]T[178].[167][153][163]48)"**** FILE NOT FOUND ****":[141]123
  181. 181 [139]T[178].[167][129]I[178]1[164]1500:[130]:[137]162
  182. 182 [153][163]60[171][195](E9$)[173]2)E9$:[141]98:[129]I[178]1[164]1000:[130]:[137]146
  183. 183 [129]I[178]21[164]24:[151]781,I:[158]CL:[130]:CO[178]2:[158]MF
  184. 184 [153]"":[151]214,22:[153]:[153]MN$:[151]207,0:[153][163]9)"SYSOLD NAME = DEF";
  185. 185 [139]FF[178]34[167]FF[178]0:[153]"DEF"FF$;:PN$[178]FF$:[151]783,.:[137]188
  186. 186 [141]280:PN$[178]FF$:[139]FF$[178][199](135)[167]154
  187. 187 [139]PN$[178]"$"[167][151]150,96:[158]SP:[141]71:[151]150,96:[158]GP:[137]184
  188. 188 [151]781,23:[158]CL
  189. 189 [151]214,22:[153]:[151]207,0:[153][163]9)"SYSNEW NAME =  CMD";:[141]280:NN$[178]FF$
  190. 190 [139]FF$[178][199](135)[167]154
  191. 191 [141]90
  192. 192 CN$[178]""[170]PN$[170]"SYS  IS  "[170]NN$
  193. 193 [153]"SYS"[163]22[171][195](CN$)[173]2)CN$"ONON":[152]15,"R0:"[170]NN$[170]"="[170]PN$:[141]134:[139]E[167]146
  194. 194 [141]21:[141]98:[137]146
  195. 195 [141]312:[139]X[167]146
  196. 196 [158]MF:[151]214,20:[153]:[153][163]2)"          ---WARNING!!!---          "
  197. 197 [153]"DEF  ALL DATA ON THE DISK TO BE FORMATTED"
  198. 198 [153]"  WILL BE DESTROYED - OK TO CONTINUE?":[146]JZ,16:[151]198,0:X[178]0
  199. 199 [139]([194](JZ)[175]1)[178]0[167]154
  200. 200 [161]A$:[139]A$[178]""[167]199
  201. 201 [139]A$[179][177]"Y"[175]A$[179][177][199](160)[167]154
  202. 202 [141]90:[151]207,0:[153][163]12)"CONTENTER ID: SYSRKCMDCMD";:ID[178]1
  203. 203 [141]294:[139]X[178]1[167]154
  204. 204 [141]90:[153]"CONT   OKAY - FORMATTING TAKES 90 SECONDS"
  205. 205 [152]15,"N:ULTRA SEQ-FILES,"B$
  206. 206 [141]178:[139]ER[179][177]0[167][141]135:[137]146
  207. 207 [137]154
  208. 208 [160]4:[159]4,4,7:[141]127:[139]QQ[167]24
  209. 209 L[178]0:[153]"LOADPOKE":[151]BD,11:[151]BK,11:[151]53272,23
  210. 210 [153]""[163]3)"                                  "
  211. 211 [153][163]3)" << (null)EADING ASCILE RIGHT$NTO AN ATNRRAY >> "
  212. 212 [153][163]3)"                                  ":[151]787,25:[151]2,15:[158]OC
  213. 213 [139]L[167][153]""[163]43)"LIST << (null)EADING ASCILE RIGHT$NTO AN ATNRRAY >> "
  214. 214 MS$[178]"  DEFLEFT$(null)(null)STR$ (null)LEFT$RIGHT$ASC(null)PRINT TO (null)AUSE ---- SYSASC5PRINT TO ATNBORTONONONOPEN"
  215. 215 [151]214,23:[153]:[153]MS$
  216. 216 [139]L[167]L[178]0:[137]219
  217. 217 [159]2,DN,2,FF$:[141]134:[139]E[167]23
  218. 218 YY[178]1:[151]CR[171]2,0:[158]CR
  219. 219 [129]K[178]1[164]112:A$(K)[178]"":[130]:U[178]0
  220. 220 [145][171]([194](CR[171]3)[179][177]0)[137]228:[139][194](CR[171]2)[177]80[167][151](CR[171]2),0:[141]161
  221. 221 [129]I[178]0[164][194](CR[171]2):AA$[178][199]([194](512[170]I)):A$(YY)[178]A$(YY)[170]AA$
  222. 222 [139][195](A$(YY))[177]40[167]YY[178]YY[170]1
  223. 223 [139][202](A$(YY),40,1)[178]" "[167]A$(YY)[178][200](A$(YY),[195](A$(YY))[171]1)
  224. 224 [130]:[158]SO:[151]214,19:[153]:[153]A$(YY):YY[178]YY[170]1:[145][171]([194](600)[178]0)[141]161:[158]WW
  225. 225 [141]308:[145]X[137]237
  226. 226 [139]U[167][153]MS$:U[178]0
  227. 227 [145][171](YY[178]112)[137]231:[153]:[137]220
  228. 228 [129]I[178]0[164][194](CR[171]2)[171]1:AA$[178][199]([194](512[170]I)):A$(YY)[178]A$(YY)[170]AA$:[130]
  229. 229 [158]SO:[151]214,19:[153]
  230. 230 [153]A$(YY):[160]2:[158]RS:[159]4,4,7
  231. 231 [153]""[163]44)"LIST      << STR$ATA TO (null)RINTER >>     ":[129]I[178]1[164]5:[152]4:[130]
  232. 232 [139]YY[173]2[179][177][181](YY[173]2)[167]YY[178]YY[170]1
  233. 233 I1[178]YY[173]2:[129]II[178]1[164]I1:[152]4,A$(II);[163]41[171][195](A$(II)));A$(II[170]I1)
  234. 234 [141]308:[145]X[137]237
  235. 235 [139]U[167][153]MS$:U[178]0
  236. 236 [130]:[141]328:[139]YY[177]111[167]YY[178]1::L[178]1:[137]213
  237. 237 T[178]1:[141]119:[160]2:[158]CK:[153]"LOAD":[151]BD,.:[151]BK,.:[158]RS:[159]15,DN,15:BOB[178]0:[137]24
  238. 238 [129]D[178]1[164]1200:[130]:[142]
  239. 239 S[178]1[171]S:[141]246
  240. 240 [139]JY[178]1[167][158]MN,81,120
  241. 241 [153]"SYSWAIT SOUND":[139]S[167][153]"  ON "
  242. 242 [139]S[178]0[167][153]"  OFF"
  243. 243 [153]""[163]73)"ASCII":[139]A[167][153]""[163]114)"ON "
  244. 244 [145][171](A[178]1)[137]245:[153]""[163]114)"OFF"
  245. 245 [142]
  246. 246 [145][171](S[178]0)[137]245:[129]I[178]S2[164]I[170]23:[151]I,.:[130]:SI[178]S2:[151]SI[170]1,106:[151]SI[170]5,12
  247. 247 [151]SI[170]6,15:[151]SI[170]24,15:[151]SI[170]15,30:[151]SI[170]4,21:[142]
  248. 248 [158]MF:[153]"LIST";
  249. 249 [141]313:[139]X[167]23
  250. 250 [158]EZ:[139]ST[179][177]64[175]ST[179][177]0[167]E$[178]"MISSING OR UNFORMATTED DISK":[141]135:[137]146
  251. 251 [151]214,23:[153]:[153][163]10)"SYS ANY KEY TO CONTINUE ";:[146]JZ,16:[151]198,0
  252. 252 [161]A$:[158]MU:[145][171](A$[178]"")[137]252:[141]313:[137]146
  253. 253 Z[178]((F$[178]"3")[175](FF$[179][177]"")[175](FF$[179][177]"$")):[139]COL[178]2[167][142]
  254. 254 [145]Z[170]2[141]88,89
  255. 255 [151]214,16[170]5[172]Z:[153]:X[178]0
  256. 256 MG$[178]"0 ":[139]F$[178]"3"[167]MG$[178]"20"
  257. 257 [151]207,0:[153]"    LEFT MARGIN:FOR  "MG$"CMDCMD";:[141]294
  258. 258 M[178][197](B$):[139]M[177]41[167]253
  259. 259 [139]F$[178]"3"[176]F$[178]"4"[176]X[178]1[167][142]
  260. 260 [151]214,17:[153]:[151]207,0:[153]"    RIGHT MARGIN:FOR 0 CMDCMD";:[141]294
  261. 261 R[178][197](B$):[139]R[177]41[167]253
  262. 262 [139]X[178]1[167][142]
  263. 263 [139]PN[167][137]316
  264. 264 [139]F$[178]"6"[167][142]
  265. 265 [141]89:[151]214,16:[153]:[153]"OPEN    PREFORMATTED TEXT?SYS N  CMDCMDCMD";
  266. 266 [139]([194](JZ)[175]1)[178]0[175][194](197)[178]64[167]20
  267. 267 [161]A$:[139]A$[178][199](160)[176]A$[178][199](13)[176]A$[178][199](133)[176]A$[178]"N"[167]270
  268. 268 [139]A$[178][199](135)[167]20
  269. 269 [139]A$[179][177]"Y"[167]266
  270. 270 F[178][171](A$[178]"Y"):[139]F[178]1[167][153]"Y"
  271. 271 [142]
  272. 272 [158]MF:I[178]2:[137]274
  273. 273 I[178]1
  274. 274 DN[178]DN[170]1[170]4[172](DN[178]11):[151]253,DN:[151]214,21:[153]
  275. 275 [153][163]8)"SYS    DEVICE NO.=        CMDCMDCMDCMDCMDCMDCMDCMD"DN:TM[178]0:[146]JZ,16
  276. 276 [158]RT:[139][194](781)[167]279
  277. 277 [161]A$:TM[178]TM[170]1:[145][171](TM[177]20)[137]279
  278. 278 [145][171]((A$[178]"D")[176](A$[178]"1"))[137]274:[145][171]((A$[179][177][199](13))[175](A$[179][177][199](135)))[137]276
  279. 279 [145]I[137]27,154
  280. 280 A$[178]"":FF$[178]"":[151]207,0:[151]204,0:[151]198,0
  281. 281 [139]([194](JZ)[175]1)[178]0[175][194](197)[178]64[167]A$[178][199](135):[137]288
  282. 282 [161]A$:[139]A$[178]""[167]281
  283. 283 [139]A$[178][199](133)[176]A$[178][199](160)[167]A$[178][199](13)
  284. 284 [139]A$[178][199](13)[175]FF$[178]""[167]FF$[178]"$":PG$[178]"1":[137]293
  285. 285 [139]A$[178][199](13)[167]292
  286. 286 [139]FF$[178]""[175]A$[178][199](20)[167]281
  287. 287 [139]A$[178][199](20)[167][153]" CMDCMD CMD";:FF$[178][200](FF$,[195](FF$)[171]1):[137]281
  288. 288 [139]A$[178][199](135)[167]FF$[178]A$:[137]293
  289. 289 [139]A$[179]" "[176](A$[177][199](127)[175]A$[179][199](160))[167]281
  290. 290 [139][195](FF$)[178]16[167]281
  291. 291 FF$[178]FF$[170]A$:[151]207,0:[153]A$" CMD";:[137]281
  292. 292 PG$[178]FF$
  293. 293 [153]" ";:[151]204,1:[142]
  294. 294 A$[178]"":B$[178]"":[151]204,0:[151]198,0
  295. 295 [139]([194](JZ)[175]1)[178]0[175][194](197)[178]64[167]X[178]1:[137]307
  296. 296 [161]A$:[139]A$[178][199](160)[176]A$[178][199](133)[167]A$[178][199](13)
  297. 297 [139]A$[178][199](135)[167]X[178]1:[137]307
  298. 298 [139]A$[178][199](13)[175]B$[178]""[175]ID[178]0[167]B$[178]MG$:[153]B$;:[137]307
  299. 299 [139]A$[178][199](13)[175]B$[178]""[167]B$[178]"RK":[153]B$:[137]307
  300. 300 [139]A$[178][199](13)[167]307
  301. 301 [139]B$[178]""[175]A$[178][199](20)[167]295
  302. 302 [139]A$[178][199](20)[167][153]" CMDCMD CMD";:B$[178][200](B$,[195](B$)[171]1):[137]295
  303. 303 [139]ID[167][145][171]((A$[179]"0")[176](A$[177]"Z"))[137]295:[137]305
  304. 304 [139]A$[179]"0"[176]A$[177]"9"[167]295
  305. 305 [139][195](B$)[178]2[167]295
  306. 306 B$[178]B$[170]A$:[151]207,0:[153]A$" CMD";:[137]295
  307. 307 [153]"  ":[151]204,1:[142]
  308. 308 A$[178]"  DEF(null)VAL(null)VALATN(null)VALPRINT TO LENONTINUE ---- SYSASC6ON":X[178]0
  309. 309 [139][194](197)[178]6[176][194](197)[178]63[176]([194](JZ)[175]1)[178]0[167]20
  310. 310 [139][194](653)[178]1[176][194](197)[178]0[167][151]214,23:[153]:[153]A$:U[178]1:[137]309
  311. 311 [142]
  312. 312 [160]15:[159]15,DN,15,"U;":[137]314
  313. 313 [160]15:[159]15,DN,15,"I"
  314. 314 X[178]0:[158]MF:[139]ST[178][171]128[167]E$[178]"DEVICE NOT PRESENT":[141]135:[137]20
  315. 315 [142]
  316. 316 [139]PN[178]0[167][142]
  317. 317 F[178]0:[145]Z[170]2[141]88,89:[151]214,16[170]5[172]Z:[153]
  318. 318 [153]"OPEN    STARTING PAGE NO:SYS 1 CMDCMD";:[141]280:PS[178][197](PG$)[171](PG$[178]"I")
  319. 319 [151]PF,1[171](PG$[178]"I")
  320. 320 [139]FF$[178][199](135)[167]X[178]1
  321. 321 [151]PG,PS:[142]
  322. 322 B$[178]"FFN ":[151]214,21:[153]
  323. 323 PN[178]1[171]PN:[153][163]8)"SYS   PAGE NUMBERING O"[202](B$,1[170]PN[172]2,2)"  ONON"
  324. 324 [129]K[178]1[164]120
  325. 325 [161]A$:[139]A$[178]"N"[167]322
  326. 326 [139]A$[178]""[167][130]
  327. 327 [151]PF,PN:[137]27
  328. 328 [152]4:[152]4
  329. 329 [139]PN[178]0[167][152]4:[137]334
  330. 330 [139]YY[179]111[167][129]I[178]1[164][181]((112[171]YY)[173]2[170].5):[152]4:[130]
  331. 331 [129]I[178]0[164]38:[152]4," ";:[130]
  332. 332 [139]PG$[178]"I"[167][152]4,[202](RN$,PS,4):PS[178]PS[170]4:[137]334
  333. 333 [152]4,PS:PS[178]PS[170]1
  334. 334 [152]4:[152]4:[142]
  335.